130 VTAB 12: PRINT "DO NOT USE COMMAS, COLONS, OR": PRINT "QUOTATION MARKS IN YOUR ADDRESS."
140 VTAB 5:CT = 0: FOR F = 1 TO 5: REM GO BACK TO 1ST LINE & RESET CHAR COUNTER
150 HTAB 10: INPUT "";F$
160 IF F$ < >"" THEN A$(F) = F$
170 VTAB F +4: HTAB 10: CALL -868: PRINT A$(F):CT = CT + LEN(A$(F)): REM CT= CHARACTER COUNT
180 NEXT : IF CT >(82 +5) THEN VTAB 20: CALL -968: PRINT "ADDRESS TOTALS MORE THAN 82 CHARACTERS.": PRINT "RE-DO THE ENTRIES TO SHORTEN THEM.": INPUT "<RETURN> TO RE-DO:";XX$: VTAB 20: CALL -958: GOTO 140
190 VTAB 20: CALL -868: INPUT "<RETURN> = ACCEPT... R = RE-ENTER:";XX$: IF XX$ < >"" AND XX$ < >"R" AND XX$ < >"r" THEN 190
200 IF XX$ = "R" THEN VTAB 20: CALL -868: PRINT "PRESS RETURN TO ACCEPT EXISTING DATA": GOTO 140
210 RETURN
220 :
230 :
240 : REM SAVE ADDRESS TO DISK
250 PRINT D$;"OPEN ADDRESSES,L87"
260 PRINT D$;"READ ADDRESSES,R0"
270 INPUT R:R = R +1
280 PRINT D$;"WRITE ADDRESSES,R";R
290 FOR F = 1 TO 5: PRINT A$(F): NEXT
300 PRINT D$;"WRITE ADDRESSES,R0"
310 PRINT R
320 PRINT D$;"CLOSE"
330 RETURN
340 :
350 :
360 : REM SETUP
370 HOME : VTAB 5
380 HTAB 10: PRINT "NIBBLE TINY MAILER"
390 PRINT : PRINT "THIS PROGRAM LETS YOU ENTER NAMES AND": PRINT "ADDRESSES INTO A RANDOM DISK FILE."